home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / fp / ifp_unix.lzh / ifp / fproot / demo / Merge < prev    next >
Encoding:
Text File  |  1986-10-03  |  327 b   |  19 lines
  1. (*
  2.  * Merge
  3.  *
  4.  * Merge two ascending sequences.
  5.  *
  6.  * The sequences should not mix strings and numbers.
  7.  *
  8.  * Example:
  9.  *
  10.  *    <<a b x z> <c d z>> : Merge -> <a b c d x y z>
  11.  *)
  12. DEF Merge AS
  13.    IF EACH null END | or THEN cat
  14.    ELSE
  15.       IF EACH 1 END | > THEN reverse ELSE id END |
  16.       [1|1,[1|tl,2]|Merge] | apndl
  17.    END;
  18.  
  19.